home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / database / tickle15.zip / EDITOR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-08-02  |  16KB  |  978 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Boolean  BOOLEAN008
  27.     Boolean  BOOLEAN009
  28.     Boolean  BOOLEAN010
  29.     Boolean  BOOLEAN011
  30.     Boolean  BOOLEAN012
  31.     Boolean  BOOLEAN013
  32.     Boolean  BOOLEAN014
  33.     Boolean  BOOLEAN015
  34.     Boolean  BOOLEAN016
  35.     Boolean  BOOLEAN017
  36.     Boolean  BOOLEAN018
  37.     Integer  INTEGER001
  38.     Integer  INTEGER002
  39.     Real     REAL001
  40.     Real     REAL002
  41.     Real     REAL003
  42.     Real     REAL004
  43.     Real     REAL005
  44.     String   TSTRING001(49)
  45.     String   STRING002
  46.     String   STRING003
  47.     String   STRING004
  48.     String   STRING005
  49.     String   STRING006
  50.     String   STRING007
  51.     String   STRING008
  52.     String   STRING009
  53.     String   STRING010
  54.     String   STRING011
  55.     String   STRING012
  56.     String   STRING013
  57.     String   STRING014
  58.     String   STRING015
  59.     String   STRING016
  60.     String   STRING017
  61.     String   STRING018
  62.     String   STRING019
  63.     String   STRING020
  64.     String   STRING021
  65.     String   STRING022
  66.     String   STRING023
  67.     String   STRING024
  68.     String   STRING025
  69.     String   STRING026
  70.     String   STRING027
  71.     String   STRING028
  72.     String   STRING029
  73.     Int      INT001
  74.     Int      INT002
  75.     Int      INT003
  76.     Int      INT004
  77.     Int      INT005
  78.     Int      INT006
  79.     Int      INT007
  80.     Int      INT008
  81.     Int      INT009
  82.     Int      INT010
  83.     Int      INT011
  84.     Int      INT012
  85.     Int      INT013
  86.     Int      INT014
  87.     Int      INT015
  88.     Int      INT016
  89.     Int      INT017
  90.     Int      INT018
  91.  
  92. ;------------------------------------------------------------------------------
  93.  
  94.     BOOLEAN008 = 1
  95.     BOOLEAN007 = 1
  96.     STRING016 = PPEPath() + "TKLTEXT" + LangExt()
  97.     STRING025 = "\"
  98.     STRING026 = "|"
  99.     STRING027 = "/"
  100.     STRING028 = "-"
  101.     STRING021 = Chr(8) + Chr(32) + Chr(8)
  102.     Gosub LABEL040
  103.     If (DErr(0)) Then
  104.         Newline
  105.         PrintLn ReadLine(STRING016, 2)
  106.         Newline
  107.         PrintLn ReadLine(STRING016, 3)
  108.         Newline
  109.         Log "Cannot open TICKLE.DBF (DataBase) - Aborting", 0
  110.     Else
  111.         Gosub LABEL020
  112.         If (DErr(0)) Then
  113.             Newline
  114.             PrintLn ReadLine(STRING016, 4)
  115.             Newline
  116.             PrintLn ReadLine(STRING016, 3)
  117.             Newline
  118.             Log "Cannot open TICKLE.NDX (Index) - Aborting", 0
  119.         Else
  120.             Cls
  121.             Newline
  122.             PrintLn ReadLine(STRING016, 41)
  123.             Gosub LABEL012
  124.             Gosub LABEL017
  125.             Goto LABEL018
  126.             :LABEL001
  127.             If ((InStr(STRING005, "-") == 0) || (InStr(STRING005, "-") == 1)) Return
  128.             STRING014 = STRING005
  129.             STRING005 = ""
  130.             Tokenize STRING014
  131.             If (TokCount() == 0) Return
  132.             For INT006 = 1 To Len(STRING014)
  133.                 STRING015 = GetToken()
  134.                 If (STRING015 == "") Break
  135.                 If (InStr(STRING015, "-") == 0) Then
  136.                     STRING005 = STRING005 + STRING015 + " "
  137.                     Continue
  138.                 Endif
  139.                 STRING009 = Mid(STRING015, 1, InStr(STRING015, "-") - 1)
  140.                 If (STRING009 <> "") STRING010 = Mid(STRING015, InStr(STRING015, "-") + 1, Len(STRING015))
  141.                 INT007 = S2I(STRING009, 10)
  142.                 INT008 = S2I(STRING010, 10)
  143.                 If (INT007 < 1) Then
  144.                     If (INT007 == 0) STRING009 = STRING015
  145.                     Newline
  146.                     PrintLn ReadLine(STRING016, 26), STRING009, ReadLine(STRING016, 27)
  147.                     Newline
  148.                     Continue
  149.                 Endif
  150.                 If (INT008 > 24) Then
  151.                     Newline
  152.                     PrintLn ReadLine(STRING016, 26), INT008, ReadLine(STRING016, 27)
  153.                     Newline
  154.                     Continue
  155.                 Endif
  156.                 If (INT008 >= INT007) Then
  157.                     For INT003 = INT007 To INT008
  158.                         STRING005 = STRING005 + LTrim(I2S(INT003, 10), " ") + " "
  159.                     Next
  160.                     Continue
  161.                 Endif
  162.                 Newline
  163.                 PrintLn ReadLine(STRING016, 5), STRING015, ReadLine(STRING016, 6)
  164.             Next
  165.             Return
  166.             :LABEL002
  167.             INT002 = 0
  168.             For INT005 = 2 To 25
  169.                 If (DGet(0, DName(0, INT005)) == "            ") Then
  170.                     INT002 = INT005 - 1
  171.                     Break
  172.                 Endif
  173.             Next
  174.             Return
  175.             :LABEL003
  176.             BOOLEAN017 = 0
  177.             If (DTop(0) == 0) Then
  178.                 Newline
  179.                 SPrintLn ReadLine(STRING016, 42)
  180.                 Newline
  181.                 Wait
  182.                 Goto LABEL018
  183.             Else
  184.                 If (!BOOLEAN012) Print "  @X0ESearching @X0F[@X0CENTER Aborts@X0F] @X0F...  @X0E"
  185.                 For INT004 = 1 To DRecCount(0)
  186.                     DGo 0, INT004
  187.                     STRING009 = Trim(DGet(0, DName(0, 1)), " ")
  188.                     If (BOOLEAN012) Goto LABEL004
  189.                     Gosub LABEL047
  190.                     If (InStr(STRING009, STRING005) > 0) Then
  191.                         Print STRING021
  192.                         BOOLEAN013 = 1
  193.                         Newline
  194.                         PrintLn ReadLine(STRING016, 43), STRING009
  195.                         Newline
  196.                         STRING013 = "N"
  197.                         STRING004 = ReadLine(STRING016, 44)
  198.                         InputStr STRING004, STRING013, 14, 1, "YN", 8 + 256
  199.                         If (((STRING013 == "") || (STRING013 == "N")) || (STRING013 == NoChar())) Then
  200.                             BOOLEAN009 = 1
  201.                             Break
  202.                         Else
  203.                             Newline
  204.                             Print "  @X0ESearching @X0F[@X0CENTER Aborts@X0F] @X0F...  @X0E"
  205.                         Endif
  206.                     Else
  207.                         Gosub LABEL019
  208.                         If (BOOLEAN017) Break
  209.                     Endif
  210.                     Continue
  211.                     :LABEL004
  212.                     Print Space(5 - Len(String(INT004))), "@X0F", INT004, ". @X03", STRING009
  213.                     If (INT004 % 2) Goto LABEL005
  214.                     Newline
  215.                     Inc INT009
  216.                     Goto LABEL006
  217.                     :LABEL005
  218.                     Print Space(33 - Len(STRING009))
  219.                     :LABEL006
  220.                     If (BOOLEAN018) Then
  221.                         Gosub LABEL019
  222.                         If (BOOLEAN017) Then
  223.                             BOOLEAN018 = 0
  224.                             Break
  225.                         Endif
  226.                     Endif
  227.                     If ((INT009 > 21) && !BOOLEAN018) Then
  228.                         STRING004 = Read